home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
DB_CLIPP
/
1159.ZIP
/
OPTSETWK.PRG
< prev
next >
Wrap
Text File
|
1986-07-19
|
6KB
|
246 lines
SELECT 4
USE DATAOPTN
N7='Z'
GO N
SELECT 5
USE DATADUP
APPEND BLANK
REPLACE PAPEROU WITH D->PAPEROU
REPLACE SPACIN WITH D->SPACIN
REPLACE DUPRE WITH D->DUPRE
REPLACE TVAI WITH D->TVAI
REPLACE SERI WITH D->SERI
REPLACE INSTNAM WITH D->INSTNAM
REPLACE TVANUMBE WITH D->TVANUMBE
REPLACE SERIALNU WITH D->SERIALNU
REPLACE OS WITH D->OS
REPLACE CALIBDAT WITH D->CALIBDAT
REPLACE DUEDAT WITH D->DUEDAT
REPLACE CALINTERV WITH D->CALINTERV
REPLACE LOCATNAM WITH D->LOCATNAM
REPLACE REMARKN WITH D->REMARKN
REPLACE CATEGOR1 WITH D->CATEGOR1
REPLACE CATEGOR2 WITH D->CATEGOR2
REPLACE CATEGOR3 WITH D->CATEGOR3
REPLACE SUBCA1 WITH D->SUBCA1
REPLACE SUBCA2 WITH D->SUBCA2
REPLACE SUBCA3 WITH D->SUBCA3
REPLACE SUB1AB WITH D->SUB1AB
REPLACE SUB2AB WITH D->SUB2AB
REPLACE SUB3AB WITH D->SUB3AB
REPLACE CAT3AB WITH D->CAT3AB
REPLACE TITLE WITH D->TITLE
SET FORMAT TO OPTIONS.FMT
DO WHILE N7#'Y'
EDIT
DO WHILE N7#'Y'
CLEAR
@ 7,0 SAY 'Press RETURN to cancel modifications and return to the previous ;
menu.'
@ 2,0
WAIT ' Are you finished modifying the options ? (Y/N)' TO N7
??' WORKING . . .'
N7=UPPER(N7)
IF N7='N'
EXIT
ENDIF
IF ASC(N7)=0
ZAP
USE
SELECT 4
USE
RETURN
ENDIF
ENDDO
IF N7='N'
LOOP
ENDIF
GO TOP
SELECT 4
IF E->PAPEROU>0
REPLACE PAPEROU WITH E->PAPEROU
ELSE
REPLACE PAPEROU WITH 44
ENDIF
IF E->SPACIN>0
REPLACE SPACIN WITH E->SPACIN
ELSE
REPLACE SPACIN WITH 2
ENDIF
IF UPPER(E->DUPRE) ='Y'.OR. UPPER(E->DUPRE) = 'N'
REPLACE DUPRE WITH LTRIM(UPPER(E->DUPRE))
ELSE
REPLACE DUPRE WITH 'N'
ENDIF
IF UPPER(E->TVAI) ='Y'.OR.UPPER(E->TVAI) ='N'
REPLACE TVAI WITH UPPER(E->TVAI)
ELSE
REPLACE TVAI WITH 'Y'
ENDIF
IF UPPER(E->SERI) ='Y'.OR. UPPER(E->SERI) = 'N'
REPLACE SERI WITH UPPER(E->SERI)
ELSE
REPLACE SERI WITH 'N'
ENDIF
IF LEN(TRIM(E->INSTNAM))>0
REPLACE INSTNAM WITH LTRIM(E->INSTNAM)
ELSE
REPLACE INSTNAM WITH 'COLUMN 1'
ENDIF
IF LEN(TRIM(E->TVANUMBE))>0
REPLACE TVANUMBE WITH LTRIM(E->TVANUMBE)
ELSE
REPLACE TVANUMBE WITH 'MAIN ID CODE'
ENDIF
IF LEN(TRIM(E->SERIALNU))>0
REPLACE SERIALNU WITH LTRIM(E->SERIALNU)
ELSE
REPLACE SERIALNU WITH 'COLUMN 2'
ENDIF
IF LEN(TRIM(E->OS))>0
REPLACE OS WITH LTRIM(E->OS)
ELSE
REPLACE OS WITH 'DATABASE '+LTRIM(STR(N))
ENDIF
IF LEN(TRIM(E->CALIBDAT))>0
REPLACE CALIBDAT WITH LTRIM(E->CALIBDAT)
ELSE
REPLACE CALIBDAT WITH 'DATE #1'
ENDIF
IF LEN(TRIM(E->DUEDAT))>0
REPLACE DUEDAT WITH LTRIM(E->DUEDAT)
ELSE
REPLACE DUEDAT WITH 'NEXT DATE'
ENDIF
IF LEN(TRIM(E->CALINTERV))>0
REPLACE CALINTERV WITH LTRIM(E->CALINTERV)
ELSE
REPLACE CALINTERV WITH 'TIME INT'
ENDIF
IF LEN(TRIM(E->LOCATNAM))>0
REPLACE LOCATNAM WITH LTRIM(E->LOCATNAM)
ELSE
REPLACE LOCATNAM WITH 'COLUMN 6'
ENDIF
IF LEN(TRIM(E->REMARKN))>0
REPLACE REMARKN WITH LTRIM(E->REMARKN)
ELSE
REPLACE REMARKN WITH 'REMARK'
ENDIF
IF LEN(TRIM(E->CATEGOR1))>0
REPLACE CATEGOR1 WITH LTRIM(E->CATEGOR1)
ELSE
REPLACE CATEGOR1 WITH 'CATEGORY 1'
ENDIF
IF LEN(TRIM(E->CATEGOR2))>0
REPLACE CATEGOR2 WITH LTRIM(E->CATEGOR2)
ELSE
REPLACE CATEGOR2 WITH 'CATEGORY 2'
ENDIF
IF LEN(TRIM(E->CATEGOR3))>0
REPLACE CATEGOR3 WITH LTRIM(E->CATEGOR3)
ELSE
REPLACE CATEGOR3 WITH 'CATEGORY 3'
ENDIF
IF LEN(TRIM(E->SUBCA1))>0
REPLACE SUBCA1 WITH LTRIM(E->SUBCA1)
ELSE
REPLACE SUBCA1 WITH 'Subcategory 1'
ENDIF
IF LEN(TRIM(E->SUBCA2))>0
REPLACE SUBCA2 WITH LTRIM(E->SUBCA2)
ELSE
REPLACE SUBCA2 WITH 'Subcategory 2'
ENDIF
IF LEN(TRIM(E->SUBCA3))>0
REPLACE SUBCA3 WITH LTRIM(E->SUBCA3)
ELSE
REPLACE SUBCA3 WITH 'Subcategory 3'
ENDIF
IF LEN(TRIM(E->SUB1AB))>0
REPLACE SUB1AB WITH UPPER(LTRIM(E->SUB1AB))
ELSE
REPLACE SUB1AB WITH '.1.'
ENDIF
IF LEN(TRIM(E->SUB2AB))>0
REPLACE SUB2AB WITH UPPER(LTRIM(E->SUB2AB))
ELSE
REPLACE SUB2AB WITH '.2.'
ENDIF
IF LEN(TRIM(E->SUB3AB))>0
REPLACE SUB3AB WITH UPPER(LTRIM(E->SUB3AB))
ELSE
REPLACE SUB3AB WITH '.3.'
ENDIF
IF LEN(TRIM(E->CAT3AB))>0
REPLACE CAT3AB WITH UPPER(LTRIM(E->CAT3AB))
ELSE
REPLACE CAT3AB WITH '.C3.'
ENDIF
IF LEN(TRIM(E->TITLE))>0
REPLACE TITLE WITH LTRIM(E->TITLE)
ELSE
REPLACE TITLE WITH 'RECORD LISTING IN '+OS
ENDIF
OSS=TRIM(OS)
DO CASE
CASE N=1
DATABASE1=OSS
CASE N=2
DATABASE2=OSS
CASE N=3
DATABASE3=OSS
CASE N=4
DATABASE4=OSS
CASE N=5
DATABASE5=OSS
CASE N=6
DATABASE6=OSS
CASE N=7
DATABASE7=OSS
CASE N=8
DATABASE8=OSS
CASE N=9
DATABASE9=OSS
CASE N=10
DATABASE10=OSS
CASE N=11
DATABASE11=OSS
CASE N=12
DATABASE12=OSS
CASE N=13
DATABASE13=OSS
CASE N=14
DATABASE14=OSS
CASE N=15
DATABASE15=OSS
CASE N=16
DATABASE16=OSS
CASE N=17
DATABASE17=OSS
CASE N=18
DATABASE18=OSS
CASE N=19
DATABASE19=OSS
CASE N=20
DATABASE20=OSS
ENDCASE
SAVE ALL LIKE DATABASE* TO DATANAME
USE
SELECT 5
ZAP
USE
SELECT 1
RETURN
ENDDO
RETURN